Daniel Bastos wrote:
> How strong are my imperative ways?
>
> #!/usr/bin/env mzscheme
> (module cat scheme/base
>
> (define (cat)
> (let ([ln (read-line)])
> (if (not (eq? ln eof))
> (and (display ln) (newline) (cat))
> (exit) )))
>
> ; main
> (cat)
> )
>
> %fortune | ./cat
> Let me put it this way: today is going to be a learning experience.
> %
>
> How would you scheme up your cat?
...wuh??
Post a reply to this message
|